home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sgwnd10 / DIALOG.VBS < prev    next >
Encoding:
Text File  |  1998-09-14  |  3.4 KB  |  110 lines
  1. '--------------------------------------------------------------------------
  2. ' Dialog.vbs - Shows how to open and use dialogs from the WSH scripts.
  3. '
  4. ' REMARKS:
  5. ' - dialog resource must be located in the file that can be loaded with
  6. '   Win32 LoadLibrary() function (EXE, DLL, ...) or you can use empty
  7. '   dialog template located in the SGWINDOW.DLL module. In this case
  8. '   pass empty string as a first parameter for the DoModal method and
  9. '   string "DLG_EMPTY" as a dialog template name.
  10. ' 
  11. '
  12. ' This file is part of the SG Window.
  13. ' Copyright (C) 1998 Stinga
  14. ' All rights reserved.
  15. '--------------------------------------------------------------------------
  16. option explicit
  17.  
  18. ' Messages
  19. const wm_CLOSE         = &H0010&
  20. const wm_INITDIALOG    = &H0110&
  21. const wm_COMMAND       = &H0111&
  22.  
  23. const LB_ADDSTRING     = &H0180&
  24. const LB_GETCURSEL     = &H0188&
  25. const LB_GETTEXT       = &H0189&
  26. const LB_GETTEXTLEN    = &H018A&
  27.  
  28. ' Global declarations
  29. Dim g, dlg, rc, sResult
  30. Dim edit, list
  31. Set dlg = WScript.CreateObject("SGWindow.Window", "dlg_")
  32. Set g   = WScript.CreateObject("SGWindow.Globals")
  33.  
  34. ' Show dialog
  35. rc = dlg.DoModal("DlgTest.dll", "TESTDIALOG", 100, 100)
  36.  
  37. Wscript.DisconnectObject dlg
  38. Set dlg = Nothing
  39. Set g = Nothing
  40.  
  41. MsgBox sResult
  42. WScript.Quit
  43.  
  44. '--------------------------------------------------------------------------
  45. ' Dialog window procedure
  46. '--------------------------------------------------------------------------
  47. Sub dlg_Message(msg, wParam, lParam, result)
  48.    result = 0
  49.    select case msg
  50.      case wm_INITDIALOG
  51.         Set edit = dlg.Children("{ID}100")
  52.         Set list = dlg.Children("{ID}105")
  53.         
  54.         ' Initialize dialog controls
  55.         edit.Text = "This is edit box"
  56.         list.SendMessage LB_ADDSTRING, 0, g.DataPtr("Item 1")
  57.         list.SendMessage LB_ADDSTRING, 0, g.DataPtr("Item 2")
  58.      
  59.      case wm_CLOSE
  60.         sResult = "Closed"
  61.         dlg.EndDialog 3
  62.         
  63.      case wm_COMMAND
  64.         Dim bHandled
  65.         bHandled = OnCommand(g.HighWord(wParam), g.LowWord(wParam), lParam)
  66.         if Not bHandled Then 
  67.            result = dlg.CallWindowProc(msg, wParam, lParam)
  68.         end if
  69.      
  70.      case else
  71.         result = dlg.CallWindowProc(msg, wParam, lParam)
  72.    end select
  73. End Sub
  74.  
  75. '--------------------------------------------------------------------------
  76. ' Handle dialog WM_COMMAND messages
  77. '--------------------------------------------------------------------------
  78. Private Function OnCommand(notifyCode, id, hwnd)
  79.    OnCommand = false
  80.    select case id
  81.       case 1 ' OK
  82.          ' Get text from the edit box
  83.          sResult = "Edit box text is '" & edit.Text & "'"
  84.          
  85.          ' Get slected item from the list box
  86.          sResult = GetSelText(list)
  87.           dlg.EndDialog 1
  88.            OnCommand = True
  89.           
  90.       case 2 ' CANCEL
  91.          sResult = "Canceled"
  92.           dlg.EndDialog 2
  93.            OnCommand = True
  94.           
  95.       case 100 ' EditBox
  96.    end select
  97. End Function
  98.  
  99. '--------------------------------------------------------------------------
  100. ' Return text of the selected item for the specified list box
  101. '--------------------------------------------------------------------------
  102. Private Function GetSelText(list)
  103.    Dim nSel, s
  104.    nSel = list.SendMessage(LB_GETCURSEL, 0, 0)
  105.    s = Space(list.SendMessage(LB_GETTEXTLEN, 0, 0) + 1)
  106.    list.SendMessage LB_GETTEXT, nSel, g.DataPtr(s)
  107.    GetSelText = s
  108. End Function
  109.  
  110.